object FRelatorioPlanoContas: TFRelatorioPlanoContas
  Left = -4
  Top = -4
  Anchors = []
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 553
  ClientWidth = 800
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 800
    Height = 525
    Align = alClient
    AutoExpand = True
    BorderStyle = bsNone
    HotTrack = True
    Indent = 19
    ReadOnly = True
    RightClickSelect = True
    RowSelect = True
    TabOrder = 0
    OnDblClick = TreeView1DblClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 525
    Width = 800
    Height = 28
    Align = alBottom
    TabOrder = 1
    object BtnImprimir: TBitBtn
      Left = 350
      Top = 4
      Width = 75
      Height = 22
      Caption = '&Imprimir'
      TabOrder = 0
      OnClick = BtnImprimirClick
    end
    object BtnFechar: TBitBtn
      Left = 470
      Top = 4
      Width = 75
      Height = 22
      Caption = '&Fechar'
      TabOrder = 1
      OnClick = BtnFecharClick
    end
    object BtnExpandir: TBitBtn
      Left = 190
      Top = 4
      Width = 75
      Height = 22
      Caption = '&Expandir'
      TabOrder = 2
      OnClick = BtnExpandirClick
    end
  end
  object DSPlano: TDataSource
    DataSet = TPlano
    Left = 283
    Top = 112
  end
  object TPlano: TTable
    Active = True
    DatabaseName = 'base'
    IndexFieldNames = 'CODIGO'
    TableName = 'PLANOCONTAS'
    Left = 251
    Top = 112
  end
  object TPlanoFilhos: TTable
    Active = True
    DatabaseName = 'base'
    FieldDefs = <
      item
        Name = 'PAI'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FILHO'
        Attributes = [faRequired]
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY10'
        Fields = 'PAI;FILHO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN21'
        Fields = 'PAI'
      end>
    IndexFieldNames = 'PAI'
    MasterFields = 'CODIGO'
    MasterSource = DSPlano
    StoreDefs = True
    TableName = 'PLANOCONTASFILHO'
    Left = 219
    Top = 112
  end
  object DsPlanoFilhos: TDataSource
    DataSet = TPlanoFilhos
    Left = 187
    Top = 112
  end
end
